home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / UFscript.AMOS / UFscript.amosSourceCode
Encoding:
AMOS Source Code  |  2001-06-14  |  912 b   |  26 lines
  1. Set Buffer 100
  2. MONTH$="jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec"
  3. For A= Extension_8_174A("25-Mai-01") To Extension_8_174A("14-Jun-01")
  4.   YYYY= Extension_8_07F2(A)
  5.   YY=YYYY mod 100
  6.   MM= Extension_8_0800(A)
  7.   DD= Extension_8_0810(A)
  8.   URL$="http://ars.userfriendly.org/cartoons/"
  9.   URL2$="http://www.userfriendly.org/cartoons/"
  10.   D$= Extension_8_0EB8(YYYY,4)+ Extension_8_0EB8(MM,2)+ Extension_8_0EB8(DD,2)
  11.   DD$= Extension_8_0EB8(YY,2)+ Extension_8_16A4(MONTH$,MM-1)+"/"
  12.   D2$= Extension_8_0EB8(YY,2)+ Extension_8_0EB8(MM,2)+ Extension_8_0EB8(DD,2)
  13.   Print D$;
  14.   Trap Kill "ram:hurz"
  15.   Exec 'HTTPResume NODATE OVERWRITE "'+URL$+'?id='+D$+'&mode=classic" ram:hurz'
  16.   Print ".";
  17.   XXX=Free
  18.   Open In 1,"ram:hurz"
  19.     I$=Input$(1,Lof(1))
  20.   Close 1
  21.   P=Instr(I$,DD$+"uf")
  22.   PP=Instr(I$,".gif",P)
  23.   N$=Mid$(I$,P,PP-P+4)
  24.   Print N$
  25.   Exec "Run HTTPResume NODATE "+URL2$+"archives/"+N$+" DNA:uf"+D2$+".gif"
  26. Next